5 POKE53281,15:POKE53280,0
6 PRINTCHR$(142)"[147][144]         **SPRITE EDITOR V1**":PRINT"                 BY"
7 PRINT"               TOMAR"
8 PRINT"    LOADSTAR IS NOT PUBLIC DOMAIN."
9 PRINT"  PLEASE RESPECT THE AUTHOR'S RIGHTS."
10 PRINT"        HIT ANY KEY TO START....."
12 POKE198,0:WAIT198,1:POKE198,0
15 DIMSP(63):SC=55336:SC%=0:CX=0:SP=1064
20 REM SPRITE EDITOR
30 REM
31 PRINT"[147]COMMAND: L[146]OAD S[146]AVE EDIT H[146]ELP Q[146]UIT "
32 FORI=1043TO1046:POKE54272+I,0:NEXTI
35 PRINT"      SPRITE EDITOR            DATA         [146]":U$="[145]"
42 FORI=1TO21
43 I$=STR$(I):L=LEN(I$)-1:I$=MID$(I$,2,L)
44 PRINTU$"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][144]"I$:PRINTTAB(28)"[145] 0,0,0"
45 U$="":NEXTI
46 PRINT"";:PRINTTAB(25)"[207][163][163][208]"
47 PRINTTAB(25)"[180]  [167]"
48 PRINTTAB(25)"[204][164][164][186]"
49 PRINT"[144]123456789111111111122222 ROW 7  COL 10 [146]"
50 PRINT"[144]         012345678901234              [145]"
60 FORI=1043TO1046:POKE54272+I,0:NEXTI
100 GOSUB3000
110 REM
130 GOSUB3050:C%=(X-24)/8+1
140 R%=(Y-44)/8-1
150 D=1064+(R%*40)+C%-1
160 P=55336+(R%*40)+C%-1
170 IFPEEK(D)=160THENPOKEP,1:POKED,122:GOTO180
175 POKEP,3:POKED,160:SW=0
180 IFC%<9THENXX=2^((8-C%)*1):T=1+(R%-1)*3:GOTO183
181 IFC%<17THENXX=2^((16-C%)*1):T=2+(R%-1)*3:GOTO183
182 XX=2^((24-C%)*1):T=3+(R%-1)*3
183 IFPEEK(D)=122THENXX=XX*(-1)
184 SP(T)=SP(T)+XX:T1=SP((R%*3)-2):T2=SP((R%*3)-1):T3=SP(R%*3)
185 D$="":FORK=1TOR%:D$=D$+"":NEXTK
186 T1$=STR$(T1):T2$=STR$(T2):T3$=STR$(T3)
187 PRINTD$"           ";
189 PRINT"[145]"MID$(T1$,2,LEN(T1$))",";
190 PRINTMID$(T2$,2,LEN(T2$))",";
191 PRINTMID$(T3$,2,LEN(T3$))
192 IFC%<9THENPOKE896+(R%-1)*3+(C%-1)/8,T1:GOTO110
193 IFC%<17THENPOKE896+(R%-1)*3+(C%-1)/8,T2:GOTO110
194 POKE896+(R%-1)*3+(C%-1)/8,T3
195 GOTO110
3000 REM
3010 REM ARROW  POINTER
3020 REM
3030 V=53248:POKEV+21,12:POKE2042,13:X=99:Y=108:POKE2043,14:POKEV+41,0
3031 POKEV+42,0:FORN=0TO62:READQ:POKE832+N,Q:NEXT:POKEV+4,99:POKEV+5,108
3040 FORN=0TO62:POKE896+N,0:NEXT:POKEV+6,229:POKEV+7,76:RETURN
3041 DATA 0,0,0,0,0,0,0,0,0,1,0,0,7,0,0,14,0,0,28,0,0,120,0,0
3042 DATA 224,0,0,255,255,255,96,0,0,56,0,0,28,0,0,14,0,0,7,0,0,1,0,0
3043 DATA 0,0,0,0,0,0,0,0,0
3044 DATA 0,0,0,0,0,0,0,0,0
3045 DATA 0,0,0,0,0,0,0,0,0
3046 DATA 0,0,0,0,0,0,0,0,0
3047 DATA 0,0,0,0,0,0,0,0,0
3050 REM
3060 REM MOVING FINGER
3065 GETC$:PK=PEEK(56320)
3070 IFPEEK(197)=1ORPK=111THENRETURN
3071 IFPEEK(197)=6THENPOKEV+21,0:POKEV+4,99:POKEV+5,108:RUN15
3072 IFPEEK(197)=3ORC$="Q"THENPOKEV+21,0:GOTO6000
3074 IFC$="L"ORPEEK(197)=4THENGOSUB4000
3075 IFC$="S"ORPEEK(197)=5THENGOSUB5010
3076 IFC$="H"THENGOSUB7000
3077 IFPK=126ORPK=119ORPK=125ORPK=123THEN3080
3078 IFC$<>""ANDC$<>""ANDC$<>"[145]"ANDC$<>"[157]"THEN3065
3080 IFC$="[145]"ORPK=126THENIFY%>1THENY=Y-8
3090 IFC$=""ORPK=125THENIFY%<21THENY=Y+8
3094 IFC$="[157]"ORPK=123THENIFX%>1THENX=X-8
3095 IFC$=""ORPK=119THENIFX%<24THENX=X+8
3100 POKEV+4,X:POKEV+5,Y
3105 X%=(X-24)/8+1
3110 Y%=(Y-44)/8-1
3120 PRINT""TAB(25)"[145]ROW"Y%"[157] "
3125 PRINTTAB(32)"[145]COL"X%"[157] [146]"
3130 GOTO3065
3172 FORI=1043TO1046:POKE54272+I,0:NEXTI
4000 PRINT" L[146]OAD FILENAME->                       "
4010 PRINT"";:INPUTF$
4015 PRINT"                              "
4020 PRINT" L[146]OADING "F$""
4034 OPEN15,8,15
4035 PRINT#15,"I0":INPUT#15,EN$,EM$,ET$,ES$
4036 IFEN$="00"GOTO4040
4037 PRINT"DISK ERROR                    ":CLOSE15:RETURN
4040 SF$=F$:F$=F$+",S,R":OPEN4,8,4,F$
4041 INPUT#15,EN$,EM$,ET$,ES$
4042 IFEN$="00"GOTO4049
4043 PRINT" "SF$" NOT FOUND RETURN[146] TO CONT"
4044 GETYN$:IFYN$=""THEN4044
4045 GOTO4092
4049 X1=SP+39:X2=X1+23:Y1=SC+39:Y2=Y1+23:CT=0:SC=0:I%=0:J%=1:CD=0
4050 FORW=1TO63:INPUT#4,SP(W):C=SP(W)
4060 FORK=7TO0STEP-1
4061 X1=X1+1:Y1=Y1+1:IFX1>X2THENX1=X1+16:X2=X1+23:Y1=Y1+16:Y2=Y2+23:GOTO4090
4070 X%=C-2^K:IFX%>-1THENPOKEX1,160:POKEY1,3:C=C-2^K:GOTO4085
4080 POKEX1,122:POKEY1,1:CT=CT+1
4085 POKE1044,160:R%=RND(0)*13+1:POKE55316,R%
4086 PRINT""CT"":
4087 I%=I%+1:PRINT""TAB(25)"[145]ROW"J%"[157] "
4088 PRINTTAB(32)"[145]COL"I%"[157] [146]"
4089 IFSC=3THENI%=0:J%=J%+1
4090 IFSC=3THENSC=0:PRINT""TAB(32)"[145]COL 24" "
4091 [130]K:[151]896[170]CD,SP(W):CD[178]CD[170]1
4092 SC[178]SC[170]1:[130]W
4093 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP  QWAITUIT "
4094 [129]I[178]1043[164]1046:[151]54272[170]I,0:[130]I
4095 [151]198,0:C$[178]"":[160]4:[160]15
4096 [153]"":T1$[178][196](SP(1)):T2$[178][196](SP(2)):T3$[178][196](SP(3))
4097 [153][163]29)[202](T1$,2,[195](T1$));:[153]","[202](T2$,2,[195](T2$));
4098 [153]","[202](T3$,2,[195](T3$))
5000 PT[178]1:[129]I[178]4[164]63[169]3
5001 D$[178]"":[129]K[178]1[164]PT:D$[178]D$[170]"":[130]K:[153]"";:T1$[178][196](SP(I))
5003 OV$[178]"":[153]OV$D$[202](T1$,2,[195](T1$))",";
5004 T2$[178][196](SP(I[170]1)):[153][202](T2$,2,[195](T2$))",";
5005 T3$[178][196](SP(I[170]2)):[153][202](T3$,2,[195](T3$))
5009 PT[178]PT[170]1:[130]I:[142]
5010 [153]" SWAITAVE FILENAME->                       "
5011 [153]"";:[133]F$
5015 [153]"                              "
5020 [153]"ON SWAITAVING "F$"ON"
5034 [159]15,8,15
5035 [152]15,"IO":[132]15,EN$,EM$,ET$,ES$
5036 [139]EN$[178]"00"[137]5040
5037 [153]"DISK ERROR                    ":[142]
5040 SF$[178]F$:F$[178]F$[170]",S,W":[159]4,8,4,F$
5041 [132]15,EN$,EM$,ET$,ES$
5042 [139]EN$[178]"00"[137]5046
5043 [153]"                         ":[153]""EM$" -RETURN FOR MENU"
5044 [161]YN$:[139]YN$[178]""[167]5044
5045 [139]YN$[179][177]"Y"[167]5070
5046 [153]"ON SWAITAVING "SF$"            ON"
5047 [160]4:F$[178]"@:"[170]F$[170]",S,W":[159]4,8,4,F$
5050 [129]W[178]1[164]63:[152]4,SP(W);[199](13)
5051 [153]""W""
5052 [151]1044,160:R%[178][187](0)[172]13[170]1:[151]55316,R%
5055 [130]W
5060 [129]I[178]1043[164]1046:[151]54272[170]I,0:[130]I
5070 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP QWAITUIT ":[151]198,0
5075 [160]4:[160]15:[142]
6000 [143]
6020 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
6030 [151]631,13:[151]632,13:[151]198,2:        [128]
7000 [143] HELP
7010 [153]" HELP-SCROLL W/ CRSRWAIT KEYS (H TO RETURN)"
7020 [161]F$:[139]F$[178]""[167]7020
7030 [139]F$[178]"H"[167]7500
7040 [139]F$[179][177]""[167]7020
7050 [153]" FUNCTION KEY (F1) LOAD A FILE         "
7060 [161]F$:[139]F$[178]""[167]7060
7070 [139]F$[178]"H"[167]7500
7075 [139]F$[178]""[167]7010
7080 [139]F$[179][177]""[167]7060
7090 [153]" FUNCTION KEY (F3) SAVE A FILE         "
7100 [161]F$:[139]F$[178]""[167]7100
7110 [139]F$[178]"H"[167]7500
7115 [139]F$[178]""[167]7050
7120 [139]F$[179][177]""[167]7100
7130 [153]" FUNCTION KEY (F5) CLEAR SPRITE        "
7140 [161]F$:[139]F$[178]""[167]7140
7150 [139]F$[178]"H"[167]7500
7165 [139]F$[178]""[167]7090
7170 [139]F$[179][177]""[167]7140
7180 [153]" FUNCTION KEY (F7) TERMINATE           "
7190 [161]F$:[139]F$[178]""[167]7190
7200 [139]F$[178]"H"[167]7500
7210 [139]F$[178]""[167]7130
7215 [139]F$[179][177]""[167]7190
7216 [153]" HIT RETURNWAIT TO FILL/UNFILL BOX       "
7220 [161]F$:[139]F$[178]""[167]7220
7230 [139]F$[178]"H"[167]7500
7240 [139]F$[178]""[167]7180
7245 [139]F$[179][177]""[167]7220
7250 [153]" CRSRWAIT KEYS/JOYSTICK POSTION ARROW    "
7260 [161]F$:[139]F$[178]""[167]7260
7270 [139]F$[178]"H"[167]7500
7280 [139]F$[178]""[167]7216
7285 [137]7260
7500 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP  QWAITUIT     "
7510 [142]